Class Box:
~~~~~~~~~~~
This class is a predcessor of all classes, which are runing in a window
on the screen. It enables simple blank window to be painted with label
and shadow. The scrolling of text in the window is enabled. Method
Box:GoodInit(...) takes care of inteligent placement of the window on
the screen, nearest possible to the cursor but no required text is
covered.

Common use:
~~~~~~~~~~~~~~~~~
LOCAL OBJECT Box OF Box
Box:Init(...)           //or Box:GoodInit(...)
Box:Paint()
Box:Done()

Source text is C_Box.prg